شرح طريقة تصميم برنامج ساعة بعقاربها ( 
درس سهل) 


بسم الله الرحمن الرحيم 
السهم الثاقب 


ان شاء الله بخير .. لانقطاعي عن هذا القسم فترة عن الشروحات الله لا يشغلنا الا 
بطاعته .. ساشرح درس سهل ان شاء الله وهو عن برنامج ساعة تحوي عقارب 
الساعة والدقائق والثواني .. كل ماعليك فعله 


فتح مشروع جدید بعد 
: ان تقول بسم الله توكلت على الله ثم تضيف كما بالصورة التالية 


General 1‏ 
اضف واحد 11۳18۲ ا 


Ek EE 
: interval=1000 غير‎ 
E 1 
َ ¬ 0 ٣" 
اضف عم وة و لے اا‎ 
غير خصائضة من,الخصائض الى چ‎ 


shape=3 Circle 


افا ۴ من شذه ادات 


السهد,الثاقب منتديات العاصفة 


.. ركز في الصورة السابقة وطبق كما شرحت 
انقهنا من الاد راج الأذرات المطلرية في مشرو غا هذا وقي أا الأكراد وهي سهلة 
الفه 
: اضف هذا الكواد (1ةإعمم6) في الاجراءات العامة 
:کود 


Option Explicit 
Dim HourLength As Integer, MinuteLlength As 


Integer, 


SecondLength As Integer 
Dim MidX As Integer, MidY As Integer 


Const PI = 3.14159‏ 
وهذا الكود السابق تعريف بمتغيرات الساعة والدقائق والثواني ثم اجرينا متغير 


Cente :‏ والوسطية طا عم [سننشى اجراء اخر في التصريحات العامة بالوسيطة 


:كود 
Sub LengthAndCentre ()‏ 


Dim d As Integer 


التصريح بمتغير' 
ينم هنا تحديد طول و عرض عقارب الساءة' 


If Me.ScaleWidth < Me.ScaleHeight Then 
HourLength = Me.ScaleWidth * 50 / 200 
MinutelLength = Me.ScaleWidth * 80 / 200 
SecondLength = Me.ScaleWidth * 90 / 200 
Else 

HourLength = Me.ScaleHeight * 50 / 200 
MinuteLlLength = Me.ScaleHeight * 80 / 200 
SecondLength = Me.ScaleHeight * 90 / 200 
End If 

idX = Me.ScaleWidth \ 2 

idY¥ = Me.ScaleHeight \ 2 

1 .X1 = MidxX 

.X1 = MidX 

.X1 = MidxX 


.Y1 = MidY 
.Y1 = MidY 
.Y1 = MidY 
BorderWidth \ 2 
Shapel.**** = d 
Shapel.Top = d 
Shapel.Width = Me.ScaleWidth = d * 2 
Shapel1l.Height = Me.ScaleHeight = d * 2 
Call Timerl_Timer 
End Sub 
بالتصريحات العامة ونضع هذا الكود 5121سع۲إ( وايضا سننشئ اجراء اخر باسم‎ 
:لرسم عقارب الساعة الثلاثة‎ 


:كود 


Private Sub DrawDial () 


و هنا اجراء رسم العقارب ثم 


استخد ام صيغعة عمل الساعة 


Dim I, Hourx, HourY, Minutex, MinuteyY, 
DialLength As Integer 
Me.Cls 


If Me.ScaleWidth < Me.ScaleHeight Then 
DialLength = Me.ScaleWwidth * 92 / 200 
Else 

DialLength = Me.ScaleHeight * 92 / 200 
End If 


اللوب لصتع عقارب الساعة من ساعة ا ي 1۲" 


For 1 = 1 To 12 

Me.DrawWidth = 4 

HourX = DialLength * Cos(PI / 180 * (30 * I 
—- 90)() + MidX 

HourY¥ = DialLength * Sin(PI / 180 * (30 * 1I 
—- 90)() + MidY 

PSet (Hourx<, HouryY) 

Next 1I 

هنا عملنا لوب لصنع دقائق الساعة' 


من دقيقة ا ي o‏ 


For 1 = 1 To 59 

Me.DrawWidth = 2 

MinuteX = DialLlLength * Cos(PI / 180 * (6 * 
1I - 90)) + MidX 

MinuteY¥ = DialLength * Sin(PI / 180 * (6 * 
1 - 90)) + MidY 

PSet (MinutexX, MinuteY) 

Next 1I 

End Sub 


۴٥۲۳_14‏ ضع هذا الكود في بداية تشغيل الفورم 
:كود 


Me.AutoRedraw = True 

Me.BackColor = vbGr€e¬ ' jùgld هنا اعطينا‎ 
OER AEG A SIE E 

ممهاs‏ وهنا لعمل الوان العقارب مع' 

Shape1l.BorderWidth = 4 
Shape1l.BorderColor = vbY¥ellow ' ڪۃwڇ‎ Iiaطl‎ 
دائرة الشاهفة . الاصفر‎ 

Linel.BorderWidth = 


Line2.BorderWidth 


Line3.BorderWidth 
Line3.BorderColor 


الاي 
Timerl. Interval = 1000‏ 


Call LengthAndCentre 
Call Timerl_Timer 


لتفادي او مصيدة الاخطاء عند عمل Form_Resize‏ ثم ضع هذا الكود في حدث 
۰ البرنامج 


:كود 


On Error Resume Next 
Call LengthAndCentre 
Call DrawDial 


: واخيرا في اجراء التايمر نضع هذا الكود لعمل البرنامج بالعقارب الثلاثة 
:كود 
Dim Hours As Single, Minutes As Single,‏ 


Seconds As Single 
Dim TrueHours As Single 


Hours = Hour (Time) 
Minutes = Minute (Time) 


Seconds = Second (Time) 

TrueHours = Hours + Minutes / 60 
عمل عقارب الساعة'‎ 

Linel.X2 = HourLength * Cos (PI / 
* TrueHours ¬ 90)) + MidX 
Linel.Y¥Z2 = HourLength * Sin(PI / 
* TrueHours - 90)) + MidY 
عمل عقارب الدقائق'‎ 

Line2.XZ2 = MinuteLength Cos (PI 
* Minutes - 90)) + MidX 

Line2.Y¥Z2 = MinuteLength Sin (PI 
* Minutes - 90)) + MidY 

عمل عقارب الثواني' 

Line3.X2 SecondLength Cos (PI 
* Seconds 90)) + MidX 

Line3. Y2 SecondLength Sin (PI / 
* Seconds 90)) + MidY 


وفي الاخير جرب البرنامج وسيظهر لك بهذا الشكل ان لم يوجد لديك اخطاء 


Gptian Explicit EE E EEE r | L-I 


Dim HourLengtkh 
SeEcZoRALENGEh A3 
Dir MidX A= In 
__ Lanst PI = 3.13 


Sub LengtEhAndte 


Else 


r 
تحياتي‎ 


